home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 December / PC Answers December 1995 (disc errors).iso / mxc / flybox2.dir / 00008_Script_MovieScript < prev    next >
Text File  |  1995-05-02  |  5KB  |  59 lines
  1. global  gDirMovie,listMTH, gAnsListNo, gMovNo, gPalNo, FlyList, xPal
  2.  
  3. on startMovie
  4.   if the machineType = 256 then
  5.     openXlib "XPALETTE.dll"
  6.     set xPal = XPALETTE(mNew)
  7.     set gBlack = 255
  8.     set gHighlight = 28
  9.   else
  10.     openXlib "XPALETTE"
  11.     set xPal = fixPalette(mNew,the stageleft,the stagetop,the stageright,the stagebottom)
  12.   end if
  13.   set gDirMovie = "FlyBox2.dir"
  14.   set FlyList = list()
  15. end
  16.  
  17. on patchPal
  18.   xPal(mPatchIt)
  19. end patchPal
  20.  
  21. on playVid VidNo, SprNo, SprNo2
  22.   put VidNo into currentMovie
  23.   set the castNum of sprite SprNo = sprNo2
  24.   updateStage
  25.   repeat with i = 1 to 48
  26.     puppetSprite i, false
  27.   end repeat
  28.   set gMovNo = vidNo
  29.   set gPalNo = vidNo + 20
  30.   go to movie "flyBox1.dir"
  31. end
  32.  
  33. on setAnsList
  34.   global listMTH, gAnsListNo
  35.   if gAnsListNo = 1 then set listMTH = list("MTH_001.PIC" , "10.TXT" , "3Stimu.pict" , "Stimu.pict" , "16.1.TXT" , "3roywul.pict" , "22.TXT" , "3ELK.PICT" , "26.TXT")
  36.   if gAnsListNo = 2 then set listMTH = list("MTH_002.PIC" , "10.TXT" , "3Stimu.pict" , "Stimu.pict" , "16.1.TXT" , "3roywul.pict" , "21.TXT" , "3ELK.PICT" , "26.TXT")
  37.   if gAnsListNo = 3 then set listMTH = list("MTH_003.PIC" , "9.TXT" , "3kaufst.pict" , "kaufst.pict" , "14.1.TXT" , "3prince.pict" , "20.2.TXT" , "3hare.pict" , "26.TXT")
  38.   if gAnsListNo = 4 then set listMTH = list("MTH_004.PIC" , "9.TXT" , "3kaufst.pict" , "kaufst.pict" , "15.1.TXT" , "3prince.pict" , "21.TXT" , "3hare.pict" , "26.TXT")
  39.   if gAnsListNo = 5 then set listMTH = list("MTH_005.PIC" , "7.TXT" , "3roywul.pict" , "roywul.pict" , "18.1.TXT" , "3elk.pict" , "23.TXT" , "3prince.pict" , "26.TXT")
  40.   if gAnsListNo = 6 then set listMTH = list("MTH_006.PIC" , "7.TXT" , "3roywul.pict" , "roywul.pict" , "18.1.TXT" , "3elk.pict" , "23.TXT" , "3prince.pict" , "26.TXT")
  41.   if gAnsListNo = 7 then set listMTH = list("MTH_007.PIC" , "6.TXT" , "3ant.pict" , "drwnant.pict" , "17a.TXT" , "3grass.pict" , "17.TXT" , "3prince.pict" , "26.TXT")
  42.   if gAnsListNo = 8 then  set listMTH = list("MTH_008.PIC" , "6.TXT" , "3grass.pict" , "GrssHppr.pict" , "17.TXT" , "3ant.pict" , "17a.TXT" , "3roywul.pict" , "26.TXT")
  43.   if gAnsListNo = 9 then set listMTH = list("MTH_009.PIC" , "5.TXT" , "3hare.pict" , "hare.pict" , "16.2.TXT" , "3cad.pict" , "25.TXT" , "3olive.pict" , "26.TXT")
  44.   if gAnsListNo = 10 then set listMTH = list("MTH_010.PIC" , "4.TXT" , "3cad.pict" , "cadpupa.pict" , "15.2.TXT" , "3olive.pict" , "21.TXT" , "3hare.pict" , "26.TXT")
  45.   if gAnsListNo = 11 then set listMTH = list("MTH_011.PIC" , "3.TXT" , "3elk.pict" , "Elk_hair.pict" , "16.3.TXT" , "3adams.pict" , "20.1.TXT" , "3roywul.pict" , "22.TXT")
  46.   if gAnsListNo = 12 then set listMTH = list("MTH_012.PIC" , "3.TXT" , "3elk.pict" , "Elk_hair.pict" , "16.3.TXT" , "3adams.pict" , "20.1.TXT" , "3roywul.pict" , "22.TXT")
  47.   if gAnsListNo = 13 then set listMTH = list("MTH_013.PIC" , "2.TXT" , "3phe.pict" , "Phstl.pict" , "15.3.TXT" , "3hare.pict" , "20.3.TXT" , "3prince.pict" , "22.TXT")
  48.   if gAnsListNo = 14 then set listMTH = list("MTH_014.PIC" , "2.TXT" , "3phe.pict" , "Phstl.pict" , "15.3.TXT" , "3olive.pict" , "21.TXT" , "3prince.pict" , "22.TXT")
  49.   if gAnsListNo = 15 then set listMTH = list("MTH_015.PIC" , "1.TXT" , "3adams.pict" , "Adams.pict" , "16.4.TXT" , "3elk.pict" , "20.4.TXT" , "3roywul.pict" , "22.TXT")
  50.   if gAnsListNo = 16 then set listMTH = list("MTH_016.PIC" , "1.TXT" , "3adams.pict" , "Adams.pict" , "14.2.TXT" , "3elk.pict" , "21.TXT" , "3roywul.pict" , "22.TXT")
  51.   if gAnsListNo = 17 then set listMTH = list("MTH_017.PIC" , "8.TXT" , "3prince.pict" , "Prince1.pict" , "18.2.TXT" , "3hare.pict" , "23.TXT" , "3roywul.pict" , "22.TXT")
  52.   if gAnsListNo = 18 then set listMTH = list("MTH_018.PIC" , "8.TXT" , "3prince.pict" , "Prince1.pict" , "18.2.TXT" , "3hare.pict" , "23.TXT" , "3roywul.pict" , "22.TXT")
  53.   if gAnsListNo = 19 then set listMTH = list("MTH_019.PIC" , "11.TXT" , "3wbugg.pict" , "Wbugger.pict" , "19.TXT" , "3prince.pict" , "24.TXT" , "3kaufst.pict" , "26.TXT")
  54.   if gAnsListNo = 20 then set listMTH = list("MTH_020.PIC" , "12.TXT" , "3cad.pict" , "Cadpupa.pict" , "15.2.TXT" , "3olive.pict" , "21.TXT" , "nothing.pict" , "0.TXT")
  55.   if gAnsListNo = 21 then set listMTH = list("MTH_021.PIC" , "12.TXT" , "3cad.pict" , "Cadpupa.pict" , "15.2.TXT" , "3olive.pict" , "21.TXT" , "nothing.pict" , "0.TXT")
  56.   if gAnsListNo = 22 then  set listMTH = list("MTH_022.PIC" , "13.TXT" , "3olive.pict" , "olive.pict" , "15.4.TXT" , "3cad.pict" , "21.TXT" , "nothing.pict" , "0.TXT")
  57.   if gAnsListNo = 23 then  set listMTH = list("MTH_023.PIC" , "13.TXT" , "3olive.pict" , "olive.pict" , "15.4.TXT" , "3cad.pict" , "21.TXT" , "nothing.pict" , "0.TXT")
  58. end
  59.